/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d3 / mult_edi.arc / PASCAL.MAC

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 1e aa 07 50 41 53 4d 54 | 43 48 00 00 00 00 00 00 |...PASMT|CH......|
|00000010| 00 00 00 80 00 00 00 38 | 04 06 04 00 00 aa 3d fe |.......8|......=.|
|00000020| 67 01 3d fe 67 02 3d fe | 67 03 3d fe 67 04 3d fe |g.=.g.=.|g.=.g.=.|
|00000030| 67 05 3d fe 67 06 3d 00 | 07 04 3d 00 02 2c 74 00 |g.=.g.=.|..=..,t.|
|00000040| 5a 03 04 15 74 01 28 5c | 0c 63 00 74 01 28 5a 01 |Z...t.(\|.c.t.(Z.|
|00000050| 74 01 29 5a 02 3d 01 07 | 01 59 01 74 01 7c 5b 59 |t.)Z.=..|.Y.t.|[Y|
|00000060| 02 5b 74 12 7c 5b 27 7b | 7d 5d 7c 7b 28 40 2a 7d |.[t.|['{|}]|{(@*}|
|00000070| 7c 7b 40 2a 29 7d 5b 5a | 05 0b d8 01 04 15 74 01 ||{@*)}[Z|......t.|
|00000080| 29 5c 0c 9d 00 74 01 29 | 5a 01 74 01 28 5a 02 3d |)\...t.)|Z.t.(Z.=|
|00000090| 00 07 01 59 01 74 01 7c | 5b 59 02 5b 74 12 7c 5b |...Y.t.||[Y.[t.|[|
|000000a0| 27 7b 7d 5d 7c 7b 28 40 | 2a 7d 7c 7b 40 2a 29 7d |'{}]|{(@|*}|{@*)}|
|000000b0| 5b 5a 05 0b d8 01 04 5a | 0c a4 00 39 13 04 15 74 |[Z.....Z|...9...t|
|000000c0| 01 20 5c 04 15 74 01 09 | 5c 14 04 15 74 01 ff 5c |. \..t..|\...t..\|
|000000d0| 14 0c bd 00 39 0e 74 05 | 3b 2e 20 09 ff 04 3b 4a |....9.t.|;. ...;J|
|000000e0| 5a 04 59 04 74 05 42 45 | 47 49 4e 5c 59 04 74 04 |Z.Y.t.BE|GIN\Y.t.|
|000000f0| 43 41 53 45 5c 14 0c 42 | 01 74 05 42 45 47 49 4e |CASE\..B|.t.BEGIN|
|00000100| 5a 01 74 03 45 4e 44 5a | 02 74 04 43 41 53 45 5a |Z.t.ENDZ|.t.CASEZ|
|00000110| 03 3d 01 07 01 74 0a 7b | 25 7c 5b 09 20 3b 7d 5d |.=...t.{|%|[. ;}]|
|00000120| 7b 59 01 5b 74 03 7d 7c | 7b 5b 59 02 5b 74 03 7d |{Y.[t.}||{[Y.[t.}|
|00000130| 7c 7b 5b 59 03 5b 74 1d | 7d 24 7c 5b 20 09 3b 2e ||{[Y.[t.|}$|[ .;.|
|00000140| 7b 5d 7d 7c 5b 27 7b 7d | 5d 7c 7b 28 40 2a 7d 7c |{]}|['{}|]|{(@*}||
|00000150| 7b 40 2a 29 7d 5b 5a 05 | 0b d8 01 59 04 74 03 45 |{@*)}[Z.|...Y.t.E|
|00000160| 4e 44 5c 0c b3 01 74 03 | 45 4e 44 5a 01 74 05 42 |ND\...t.|ENDZ.t.B|
|00000170| 45 47 49 4e 5a 02 74 04 | 43 41 53 45 5a 03 3d 00 |EGINZ.t.|CASEZ.=.|
|00000180| 07 01 39 0d 39 01 74 0a | 7b 25 7c 5b 09 20 3b 7d |..9.9.t.|{%|[. ;}|
|00000190| 5d 7b 59 01 5b 74 03 7d | 7c 7b 5b 59 02 5b 74 03 |]{Y.[t.}||{[Y.[t.|
|000001a0| 7d 7c 7b 5b 59 03 5b 74 | 1d 7d 24 7c 5b 09 20 3b |}|{[Y.[t|.}$|[. ;|
|000001b0| 2e 7b 5d 7d 7c 5b 27 7b | 7d 5d 7c 7b 28 40 2a 7d |.{]}|['{|}]|{(@*}|
|000001c0| 7c 7b 40 2a 29 7d 5b 5a | 05 0b d8 01 06 04 2d 0c ||{@*)}[Z|......-.|
|000001d0| c2 01 3d 01 07 04 39 13 | 0b 29 00 74 10 4e 4f 54 |..=...9.|.).t.NOT|
|000001e0| 48 49 4e 47 20 74 6f 20 | 4d 61 74 63 68 8d 0b 2e |HING to |Match...|
|000001f0| 04 3d 01 04 4f 3d 01 02 | 2f 3d 01 07 02 3d 01 07 |.=..O=..|/=...=..|
|00000200| 03 74 1f 4d 61 74 63 68 | 69 6e 67 2e 2e 2e 20 20 |.t.Match|ing...  |
|00000210| 48 69 74 20 3c 45 53 43 | 3e 20 74 6f 20 53 74 6f |Hit <ESC|> to Sto|
|00000220| 70 2e 8d 92 a9 0c 2b 02 | 03 31 3d 1b 12 0c 2b 02 |p.....+.|.1=...+.|
|00000230| 74 0e 4d 61 74 63 68 20 | 41 62 6f 72 74 65 64 2e |t.Match |Aborted.|
|00000240| 8d 0b 2e 04 06 03 3d 00 | 12 0c 36 02 0b 0b 04 06 |......=.|..6.....|
|00000250| 02 3d 00 12 0c 41 02 0b | 20 04 06 01 3d 01 12 0c |.=...A..| ...=...|
|00000260| 68 02 39 02 04 5a 2d 04 | 15 74 01 ff 5c 13 0c 5d |h.9..Z-.|.t..\..]|
|00000270| 02 39 02 0b 4b 02 59 05 | 3d 00 04 0f 07 03 0b 87 |.9..K.Y.|=.......|
|00000280| 02 39 01 04 15 74 01 ff | 5c 04 15 74 01 09 5c 14 |.9...t..|\..t..\.|
|00000290| 0c 7f 02 39 01 0b 6a 02 | 59 05 3d 00 04 10 07 03 |...9..j.|Y.=.....|
|000002a0| 06 03 3d 00 12 0c 92 02 | 0b 2e 04 04 2c 4a 5a 06 |..=.....|....,JZ.|
|000002b0| 59 06 3d 01 3d 01 42 74 | 03 09 20 3b 3d 01 43 0c |Y.=.=.Bt|.. ;=.C.|
|000002c0| b2 02 59 06 3d 02 3d 14 | 42 5a 06 59 06 59 06 4c |..Y.=.=.|BZ.Y.Y.L|
|000002d0| 3d 01 42 74 04 09 20 3b | 2e 3d 01 43 0c d3 02 59 |=.Bt.. ;|.=.C...Y|
|000002e0| 06 3d 01 59 06 4c 3d 01 | 16 42 5a 06 59 06 59 01 |.=.Y.L=.|.BZ.Y.Y.|
|000002f0| 5c 0c e5 02 06 02 3d 01 | 15 07 02 0b 0b 02 59 06 |\.....=.|......Y.|
|00000300| 59 02 5c 0c f7 02 06 02 | 3d 01 16 07 02 0b 0b 02 |Y.\.....|=.......|
|00000310| 59 06 74 02 27 27 5c 0c | 13 03 06 01 3d 01 12 0c |Y.t.''\.|....=...|
|00000320| 0e 03 39 02 0b 10 03 39 | 01 0b 0b 02 59 06 74 01 |..9....9|....Y.t.|
|00000330| 27 5c 0c 67 03 06 01 3d | 01 12 0c 29 03 39 02 0b |'\.g...=|...).9..|
|00000340| 2b 03 39 01 06 01 3d 01 | 12 0c 3f 03 74 01 27 3d |+.9...=.|..?.t.'=|
|00000350| 00 04 0f 07 03 0b 48 03 | 74 01 27 3d 00 04 10 07 |......H.|t.'=....|
|00000360| 03 06 03 3d 00 12 0c 53 | 03 0b 2e 04 04 2c 5a 06 |...=...S|.....,Z.|
|00000370| 59 06 74 02 27 27 5c 0c | 64 03 0b 1c 03 0b 0b 02 |Y.t.''\.|d.......|
|00000380| 06 01 3d 01 12 59 06 74 | 01 7b 5c 13 0c 83 03 74 |..=..Y.t|.{\....t|
|00000390| 02 40 7d 3d 00 04 0f 07 | 03 0b 0b 02 06 01 3d 00 |.@}=....|......=.|
|000003a0| 12 59 06 74 01 7d 5c 13 | 0c 9f 03 74 02 40 7b 3d |.Y.t.}\.|...t.@{=|
|000003b0| 00 04 10 07 03 0b 0b 02 | 06 01 3d 01 12 59 06 74 |........|..=..Y.t|
|000003c0| 02 28 2a 5c 13 0c bd 03 | 74 03 40 2a 29 3d 00 04 |.(*\....|t.@*)=..|
|000003d0| 0f 07 03 0b 0b 02 06 01 | 3d 00 12 59 06 74 02 2a |........|=..Y.t.*|
|000003e0| 29 5c 13 0c db 03 74 03 | 28 40 2a 3d 00 04 10 07 |)\....t.|(@*=....|
|000003f0| 03 0b 0b 02 06 01 3d 00 | 12 59 06 59 03 5c 13 0c |......=.|.Y.Y.\..|
|00000400| f3 03 06 02 3d 01 16 07 | 02 0b 0b 02 06 01 3d 01 |....=...|......=.|
|00000410| 12 59 06 59 03 5c 13 0c | 0b 04 06 02 3d 01 15 07 |.Y.Y.\..|....=...|
|00000420| 02 0b 0b 02 74 0f 4d 61 | 74 63 68 20 4e 4f 54 20 |....t.Ma|tch NOT |
|00000430| 46 6f 75 6e 64 8d 0b 2e | 04 74 0b 4d 61 74 63 68 |Found...|.t.Match|
|00000440| 20 46 6f 75 6e 64 8d 3d | 01 02 2c 39 3f 08 08 08 | Found.=|..,9?...|
|00000450| 00 1e aa 07 50 41 53 5f | 49 4e 44 00 00 00 00 00 |....PAS_|IND.....|
|00000460| 00 00 00 00 00 00 00 00 | e6 01 01 05 00 01 aa 3d |........|.......=|
|00000470| fe 67 01 3d 00 02 2d 39 | 10 3d 01 04 4f 39 04 3d |.g.=..-9|.=..O9.=|
|00000480| 00 02 2c 39 03 39 01 74 | 11 40 7b 7c 40 7d 7c 7b |..,9.9.t|.@{|@}|{|
|00000490| 28 40 2a 7d 7c 7b 40 2a | 29 7d 3d 05 04 10 0c 62 |(@*}|{@*|)}=....b|
|000004a0| 00 04 15 74 01 7b 5c 04 | 15 74 01 28 5c 14 0c 62 |...t.{\.|.t.(\..b|
|000004b0| 00 04 15 74 01 7b 5c 0c | 55 00 39 02 0b 59 00 39 |...t.{\.|U.9..Y.9|
|000004c0| 02 39 02 04 58 39 11 39 | 3a 0b da 01 39 11 39 10 |.9..X9.9|:...9.9.|
|000004d0| 09 66 01 04 15 5f 01 39 | 11 04 32 07 02 39 13 04 |.f..._.9|..2..9..|
|000004e0| 32 07 01 06 02 06 01 0e | 0c 89 00 06 02 07 01 06 |2.......|........|
|000004f0| 01 04 17 04 5a 3d 00 12 | 0c 93 00 04 58 04 32 07 |....Z=..|....X.2.|
|00000500| 01 74 01 20 74 05 3b 20 | 28 2c 7b 04 3b 4a 57 5b |.t. t.; |(,{.;JW[|
|00000510| 74 01 20 5b 5a 01 06 02 | 04 17 39 3a 06 01 06 02 |t. [Z...|..9:....|
|00000520| 11 59 01 4c 3d 00 11 13 | 59 01 74 1a 20 50 52 4f |.Y.L=...|Y.t. PRO|
|00000530| 43 45 44 55 52 45 20 46 | 55 4e 43 54 49 4f 4e 20 |CEDURE F|UNCTION |
|00000540| 42 45 47 49 4e 20 46 3d | 00 11 13 0c e9 00 39 16 |BEGIN F=|......9.|
|00000550| 0b 63 01 5e 01 74 01 3b | 5d 06 01 06 02 11 13 59 |.c.^.t.;|]......Y|
|00000560| 01 4c 3d 00 11 13 59 01 | 74 47 20 56 41 52 20 54 |.L=...Y.|tG VAR T|
|00000570| 59 50 45 20 43 4f 4e 53 | 54 20 50 52 4f 43 45 44 |YPE CONS|T PROCED|
|00000580| 55 52 45 20 46 55 4e 43 | 54 49 4f 4e 20 42 45 47 |URE FUNC|TION BEG|
|00000590| 49 4e 20 49 46 20 57 48 | 49 4c 45 20 52 45 50 45 |IN IF WH|ILE REPE|
|000005a0| 41 54 20 57 49 54 48 20 | 46 4f 52 20 45 4c 53 45 |AT WITH |FOR ELSE|
|000005b0| 20 46 3d 00 11 13 0c 54 | 01 39 16 0b 63 01 59 01 | F=....T|.9..c.Y.|
|000005c0| 74 05 20 45 4e 44 20 5c | 0c 63 01 39 17 0b da 01 |t. END \|.c.9....|
|000005d0| 74 05 5b 7e 20 09 5d 3d | 01 04 10 0c c3 01 04 15 |t.[~ .]=|........|
|000005e0| 74 01 29 5c 0c a4 01 39 | 01 04 15 74 01 2a 5c 0c |t.)\...9|...t.*\.|
|000005f0| 98 01 74 03 28 40 2a 3d | 00 04 10 07 05 39 01 0b |..t.(@*=|.....9..|
|00000600| 66 01 39 02 3d 01 07 03 | 0b d9 01 0b bc 01 04 15 |f.9.=...|........|
|00000610| 74 01 7d 5c 0c bc 01 74 | 02 40 7b 3d 00 04 10 07 |t.}\...t|.@{=....|
|00000620| 05 39 01 0b 66 01 3d 01 | 07 03 0b d9 01 04 31 3d |.9..f.=.|......1=|
|00000630| 01 12 0c d2 01 3d 00 07 | 03 0b d9 01 39 03 39 06 |.....=..|....9.9.|
|00000640| 0b 66 01 0a 3d 01 02 2c | 3d 01 02 2d 08 08 08 00 |.f..=..,|=..-....|
|00000650| 1e aa 07 50 41 53 54 45 | 4d 50 00 00 00 00 00 00 |...PASTE|MP......|
|00000660| 00 00 00 80 00 00 00 e5 | 03 01 04 00 00 aa 3d fe |........|......=.|
|00000670| 67 01 2e 07 02 04 5a 3d | 00 12 0c 17 00 0b de 03 |g.....Z=|........|
|00000680| 3d 01 33 04 32 07 01 39 | 01 04 32 3d 01 0d 0c 49 |=.3.2..9|..2=...I|
|00000690| 00 39 01 04 15 74 08 20 | 3b 7d 29 46 66 ff 09 46 |.9...t. |;})Ff..F|
|000006a0| 3d 00 12 0c 47 00 06 01 | 04 17 0b de 03 0b 49 00 |=...G...|......I.|
|000006b0| 39 02 3d 01 07 04 04 15 | 74 01 42 5c 0c 59 00 0b |9.=.....|t.B\.Y..|
|000006c0| 4b 02 04 15 74 01 49 5c | 0c 65 00 0b fa 01 04 15 |K...t.I\|.e......|
|000006d0| 74 01 57 5c 0c 71 00 0b | 22 02 04 15 74 01 52 5c |t.W\.q..|"...t.R\|
|000006e0| 0c 7d 00 0b ad 02 04 15 | 74 01 4f 5c 0c 92 00 39 |.}......|t.O\...9|
|000006f0| 18 06 01 3d 01 16 07 01 | 0b 80 02 04 15 74 01 55 |...=....|.....t.U|
|00000700| 5c 0c a7 00 06 01 3d 01 | 16 07 01 39 18 0b 3d 03 |\.....=.|...9..=.|
|00000710| 04 15 74 01 46 5c 0c 06 | 01 74 07 53 65 6c 65 63 |..t.F\..|.t.Selec|
|00000720| 74 3a 8d 74 32 75 73 65 | 72 69 6e 5e 78 6d 65 6e |t:.t2use|rin^xmen|
|00000730| 75 20 2f 58 3d 31 30 2f | 59 3d 32 2f 4d 3d 46 6f |u /X=10/|Y=2/M=Fo|
|00000740| 72 2d 4e 65 78 74 28 54 | 45 29 20 46 75 6e 63 74 |r-Next(T|E) Funct|
|00000750| 69 6f 6e 28 54 45 29 2f | c8 07 03 74 00 8d 06 03 |ion(TE)/|...t....|
|00000760| 3d 02 12 0c 03 01 0b 3d | 03 0b 06 01 0b 80 02 04 |=......=|........|
|00000770| 15 74 01 50 5c 0c 12 01 | 0b eb 02 04 15 74 01 43 |.t.P\...|.....t.C|
|00000780| 5c 0c 1e 01 0b 8e 03 3d | 00 07 04 04 15 74 01 62 |\......=|.....t.b|
|00000790| 5c 0c 2e 01 0b 4b 02 04 | 15 74 01 69 5c 0c 3a 01 |\....K..|.t.i\.:.|
|000007a0| 0b fa 01 04 15 74 01 77 | 5c 0c 46 01 0b 22 02 04 |.....t.w|\.F.."..|
|000007b0| 15 74 01 72 5c 0c 52 01 | 0b ad 02 04 15 74 01 6f |.t.r\.R.|.....t.o|
|000007c0| 5c 0c 67 01 39 18 06 01 | 3d 01 16 07 01 0b 80 02 |\.g.9...|=.......|
|000007d0| 04 15 74 01 75 5c 0c 7c | 01 06 01 3d 01 16 07 01 |..t.u\.||...=....|
|000007e0| 39 18 0b 3d 03 04 15 74 | 01 66 5c 0c db 01 74 07 |9..=...t|.f\...t.|
|000007f0| 53 65 6c 65 63 74 3a 8d | 74 32 75 73 65 72 69 6e |Select:.|t2userin|
|00000800| 5e 78 6d 65 6e 75 20 2f | 58 3d 31 30 2f 59 3d 32 |^xmenu /|X=10/Y=2|
|00000810| 2f 4d 3d 46 6f 72 2d 4e | 65 78 74 28 54 45 29 20 |/M=For-N|ext(TE) |
|00000820| 46 75 6e 63 74 69 6f 6e | 28 54 45 29 2f c8 07 03 |Function|(TE)/...|
|00000830| 74 00 8d 06 03 3d 02 12 | 0c d8 01 0b 3d 03 0b db |t....=..|....=...|
|00000840| 01 0b 80 02 04 15 74 01 | 70 5c 0c e7 01 0b eb 02 |......t.|p\......|
|00000850| 04 15 74 01 63 5c 0c f3 | 01 0b 8e 03 06 01 04 17 |..t.c\..|........|
|00000860| 0b de 03 06 01 04 17 74 | 09 66 20 28 29 20 74 68 |.......t|.f () th|
|00000870| 65 6e 5a 01 09 cf 03 39 | 3a 06 01 04 17 39 16 39 |enZ....9|:....9.9|
|00000880| 03 06 01 3d 03 15 04 17 | 0b de 03 06 01 04 17 74 |...=....|.......t|
|00000890| 0a 68 69 6c 65 20 28 29 | 20 44 6f 5a 01 09 cf 03 |.hile ()| DoZ....|
|000008a0| 39 3a 06 01 04 17 39 16 | 39 03 06 01 3d 06 15 04 |9:....9.|9...=...|
|000008b0| 17 0b de 03 06 01 04 17 | 74 04 65 67 69 6e 5a 01 |........|t.eginZ.|
|000008c0| 09 cf 03 39 13 04 32 07 | 01 39 06 39 3a 39 3a 06 |...9..2.|.9.9:9:.|
|000008d0| 01 04 17 74 04 65 6e 64 | 3b 5a 01 09 cf 03 39 03 |...t.end|;Z....9.|
|000008e0| 06 01 04 17 39 16 0b de | 03 06 01 04 17 74 0e 6f |....9...|.....t.o|
|000008f0| 72 20 20 3a 3d 20 20 74 | 6f 20 20 64 6f 5a 01 09 |r  :=  t|o  doZ..|
|00000900| cf 03 39 3a 06 01 04 17 | 39 16 39 03 06 01 3d 04 |..9:....|9.9...=.|
|00000910| 15 04 17 0b de 03 06 01 | 04 17 74 05 65 70 65 61 |........|..t.epea|
|00000920| 74 5a 01 09 cf 03 39 3a | 06 01 3d 01 16 04 17 39 |tZ....9:|..=....9|
|00000930| 16 39 3a 06 01 3d 01 16 | 04 17 74 09 75 6e 74 69 |.9:..=..|..t.unti|
|00000940| 6c 20 28 29 3b 5a 01 09 | cf 03 06 01 3d 06 15 04 |l ();Z..|....=...|
|00000950| 17 0b de 03 06 01 04 17 | 74 0b 72 6f 63 65 64 75 |........|t.rocedu|
|00000960| 72 65 20 20 3b 5a 01 09 | cf 03 39 3a 06 01 3d 01 |re  ;Z..|..9:..=.|
|00000970| 16 04 17 39 16 74 05 62 | 65 67 69 6e 5a 01 09 cf |...9.t.b|eginZ...|
|00000980| 03 39 3a 39 3a 74 04 65 | 6e 64 3b 5a 01 09 cf 03 |.9:9:t.e|nd;Z....|
|00000990| 39 03 06 01 04 17 39 16 | 39 03 39 03 06 01 3d 09 |9.....9.|9.9...=.|
|000009a0| 15 04 17 0b de 03 06 01 | 04 17 74 0a 75 6e 63 74 |........|..t.unct|
|000009b0| 69 6f 6e 20 20 3b 5a 01 | 09 cf 03 39 3a 06 01 3d |ion  ;Z.|...9:..=|
|000009c0| 01 16 04 17 39 16 74 05 | 62 65 67 69 6e 5a 01 09 |....9.t.|beginZ..|
|000009d0| cf 03 39 3a 39 3a 74 04 | 65 6e 64 3b 5a 01 09 cf |..9:9:t.|end;Z...|
|000009e0| 03 39 03 06 01 04 17 39 | 16 39 03 39 03 06 01 3d |.9.....9|.9.9...=|
|000009f0| 08 15 04 17 0b de 03 06 | 01 04 17 74 09 61 73 65 |........|...t.ase|
|00000a00| 20 28 29 20 6f 66 5a 01 | 09 cf 03 39 3a 39 3a 06 | () ofZ.|...9:9:.|
|00000a10| 01 3d 01 16 04 17 74 04 | 65 6e 64 3b 5a 01 09 cf |.=....t.|end;Z...|
|00000a20| 03 39 03 06 01 3d 01 16 | 04 17 39 16 39 03 06 01 |.9...=..|..9.9...|
|00000a30| 3d 05 15 04 17 0b de 03 | 06 04 0c d9 03 59 01 4a |=.......|.....Y.J|
|00000a40| 5a 01 59 01 04 0b 0a 06 | 02 33 08 08 08 00       |Z.Y.....|.3....  |
+--------+-------------------------+-------------------------+--------+--------+